home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / bounce.zip / WMOUSE.ASM < prev    next >
Assembly Source File  |  1990-11-21  |  2KB  |  101 lines
  1. ;-------------------------------------------------
  2. DGroup Group DataSeg
  3. DataSeg Segment word public 'data'
  4.         assume cs:nothing, ds:DGroup
  5.  
  6. DataSeg ends
  7. ;-------------------------------------------------
  8.  Windows segment word
  9.         assume cs:Windows,ds:DGroup
  10. ;LOCAL DATA
  11. ;========================================================================
  12. Public ShowM
  13. ShowM Proc Far
  14.          mov    ax,1
  15.          int    33h
  16.          ret
  17. ShowM Endp
  18.  
  19. ;=========================================================================
  20. Public HideM
  21. HideM Proc Far
  22.         mov     ax, 2
  23.         int     33h
  24.         ret
  25. HideM Endp
  26.  
  27. ;=========================================================================
  28. Public MButton
  29. MButton Proc Far        ;l%, r%
  30.  
  31.         push    bp
  32.         mov     bp,sp
  33.         mov     ax,3
  34.         int     33h
  35.         mov     dx,bx
  36.  
  37.         and     bx,1
  38.         not     bx
  39.         inc     bx
  40.         mov     si,[bp+8]       ;l%   bit 0
  41.         mov     [si],bx
  42.  
  43.         shr     dx,1
  44.         and     dx,1
  45.         not     dx
  46.         inc     dx
  47.         mov     si,[bp+6]       ;r%   bit 1
  48.         mov     [si],dx
  49.         pop     bp
  50.         ret     4
  51.  
  52. MButton EndP
  53.  
  54. ;=========================================================================
  55. Public MLoc
  56. MLoc Proc Far           ;r%,c%
  57.         push    bp
  58.         mov     bp,sp
  59.         mov     ax,3
  60.         int     33h
  61.         mov     si,[bp+6]       ;col  0-639
  62.         mov     [si],cx
  63.         mov     si,[bp+8]       ;r%   0-199
  64.         mov     [si],dx
  65.         pop     bp
  66.         ret     4
  67. MLoc EndP
  68. ;=========================================================================
  69. Public SetMLoc
  70. SetMLoc Proc Far           ;r%,c%
  71.         push    bp
  72.         mov     bp,sp
  73.         mov     si,[bp+6]       ;col  0-639
  74.         mov     cx,[si]
  75.         mov     si,[bp+8]       ;r%   0-199
  76.         mov     dx,[si]
  77.         mov     ax,4
  78.         int     33h
  79.  
  80.         pop     bp
  81.         ret     4
  82. SetMLoc EndP
  83. ;=========================================================================
  84. Public InitM
  85. InitM Proc Far          ;(present%)
  86.         push    bp
  87.         mov     bp,sp
  88.         mov     ax,0
  89.         int     33h
  90.         mov     si,[bp+6]
  91.         mov     [si],ax         ;0 not installed  -1 installed
  92.         pop     bp
  93.         ret     2
  94. InitM Endp
  95. ;=========================================================================
  96.  
  97. Windows ends
  98.  
  99.         END
  100.  
  101.